home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2001 #3 / CD 3 (Black) - 2001.iso / PetWings / PetWings.exe / RCDATA / 167 < prev    next >
Encoding:
Text File  |  2000-01-23  |  607 b   |  53 lines
  1. //-------- WORM --------
  2.  
  3. SET_FRAME 0
  4.  
  5. LABEL 1
  6.  
  7. SPEED 7
  8. DIRECTION 30
  9. MOVE 25
  10.  
  11. GOSUB 2
  12.  
  13. SPEED 7
  14. DIRECTION 18
  15. MOVE 25
  16.  
  17. SPEED 7
  18. DIRECTION 18
  19. MOVE 25
  20.  
  21. GOSUB 2
  22.  
  23. SPEED 7
  24. DIRECTION 30
  25. MOVE 25
  26.  
  27. GOTO_LABEL 1
  28.  
  29. //---------- Fire Bullet
  30. LABEL 2
  31.   SPEED 6
  32.   REPEAT 15
  33.     INCR_FRAME
  34.     DIRECTION 16
  35.     MOVE 1
  36.     INCR_FRAME
  37.     DIRECTION 0
  38.     MOVE 1
  39.   REPEAT_END
  40.  
  41.   SHOOT 5
  42.  
  43.   REPEAT 5
  44.     INCR_FRAME
  45.     DIRECTION 16
  46.     MOVE 1
  47.     INCR_FRAME
  48.     DIRECTION 0
  49.     MOVE 1
  50.   REPEAT_END
  51. RETURN
  52.  
  53. //========================= END OF FILE =================================